﻿Namespace Cartes.BatimentsScientifiques.AgeI

    Public Class Sciptorium
        Inherits CarteBatimentsScientifiques

        Public Overrides ReadOnly Property NomBatiment As String
            Get
                Return "Sciptorium"
            End Get
        End Property

        Public Overrides ReadOnly Property Age As Integer
            Get
                Return 1
            End Get
        End Property

        Public Overrides ReadOnly Property FrequenceCarteNombreJoueur As List(Of Integer)
            Get
                Return New List(Of Integer) From {3, 4}
            End Get
        End Property

        Public Overrides ReadOnly Property CoutRessource As List(Of Carte.TypeRessouce)
            Get
                Return New List(Of Carte.TypeRessouce) From {Carte.TypeRessouce.Papyrus}
            End Get
        End Property

        Public Overrides ReadOnly Property Gratuite As List(Of Carte)
            Get
                Return New List(Of Carte)
            End Get
        End Property

#Region "Constructeur"
        Public Sub New()

            Me.Effet.Add(New List(Of Carte.TypeRessouce) From {Carte.TypeRessouce.Tablette})

        End Sub
#End Region

    End Class
End Namespace